testnamcopy:

	ldy #31
-	lda testpal,y
	sta PAL_BUF,y
	dey
	bpl -
	
	ldy #0

	lda #$20
	sta PPU_ADDR
	lda #$00
	sta PPU_ADDR

-
	lda testnam,y
	sta PPU_DATA
	iny
	bne -
-
	lda testnam+256,y
	sta PPU_DATA
	iny
	bne -
-
	lda testnam+512,y
	sta PPU_DATA
	iny
	bne -
-
	lda testnam+768,y
	sta PPU_DATA
	iny
	bne -
	rts